Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Office/Sol Juridico/_SETUP.2/Group1/Util.exe/0/RCDATA/TFRMUTIL/TFRMUTIL.txt

Text File | 1998-10-27 | 10KB | 444 lines

object frmUtil: TfrmUtil
  Left = 205
  Top = 51
  Width = 415
  Height = 383
  Caption = 'Sol Jur�dico - Manuten��o'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 407
    Height = 56
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 2
      Top = 16
      Width = 402
      Height = 24
      Alignment = taCenter
      AutoSize = False
      Caption = 'Reorganiza��o, C�pia e Restaura��o dos dados'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 292
    Width = 407
    Height = 39
    Align = alClient
    TabOrder = 1
    object btnSai: TBitBtn
      Left = 313
      Top = 7
      Width = 75
      Height = 25
      Caption = 'Sair'
      TabOrder = 1
      OnClick = btnSaiClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330333333
        333333333F333333333333330033333333333333FF33333333333330B0333333
        3333333F8F3333333333330BB0333333333333F88F333333333300BBB0000000
        0333FF888FFFFFFFF33330BBB033033333333F888F33F333333330BB00330333
        34333F88FF33F3333F3330BBB033033344333F888F33F333FF3330BBB0330334
        44443F888F33F33FFFFF30BBB033034444443F888F33F3FFFFFF30BBB0330334
        44443F888F33F33FFFFF30BB0333033344333F88F333F333FF3330B033330333
        34333F8F3333F3333F3330033333033333333FF33333F3333333300000000333
        33333FFFFFFFF333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object btnExecuta: TBitBtn
      Left = 34
      Top = 8
      Width = 79
      Height = 25
      Caption = 'Executar'
      TabOrder = 0
      OnClick = btnExecutaClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 56
    Width = 407
    Height = 236
    Align = alTop
    TabOrder = 2
    object rgpOper: TRadioGroup
      Left = 110
      Top = 35
      Width = 188
      Height = 112
      Caption = 'Selecione a Opera��o desejada '
      ItemIndex = 0
      Items.Strings = (
        'Reorganizar Tabelas'
        'Gerar C�pia de Seguran�a'
        'Restaurar C�pia de Seguran�a')
      TabOrder = 0
    end
    object Panel4: TPanel
      Left = 69
      Top = 166
      Width = 270
      Height = 52
      TabOrder = 1
      Visible = False
      object lbOper: TLabel
        Left = 3
        Top = 4
        Width = 265
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Organizando...'
      end
      object progressbar1: TProgressBar
        Left = 14
        Top = 23
        Width = 242
        Height = 19
        Min = 0
        Max = 100
        TabOrder = 0
      end
    end
    object FilesLb: TListBox
      Left = 305
      Top = 87
      Width = 97
      Height = 73
      BorderStyle = bsNone
      Ctl3D = False
      ItemHeight = 16
      MultiSelect = True
      ParentCtl3D = False
      Sorted = True
      Style = lbOwnerDrawFixed
      TabOrder = 2
      Visible = False
    end
  end
  object StatusPn: TPanel
    Left = 0
    Top = 331
    Width = 407
    Height = 25
    Align = alBottom
    BorderWidth = 3
    TabOrder = 3
    object Bevel1: TBevel
      Left = 4
      Top = 4
      Width = 395
      Height = 17
      Align = alClient
    end
    object StatusLb: TLabel
      Left = 8
      Top = 6
      Width = 279
      Height = 13
      Caption =
        '                                                                ' +
        '                             '
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object HintLb: TLabel
      Left = 8
      Top = 6
      Width = 3
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpacePn: TPanel
      Left = 399
      Top = 4
      Width = 4
      Height = 17
      Align = alRight
      BevelOuter = bvNone
      Caption = ' '
      TabOrder = 0
    end
  end
  object tblprocesso: TTable
    DatabaseName = 'soljur'
    TableName = 'Processo.DB'
    Left = 46
    Top = 104
  end
  object tblcontra: TTable
    DatabaseName = 'soljur'
    TableName = 'contra.db'
    Left = 224
    Top = 32
  end
  object tblusuario: TTable
    DatabaseName = 'soljur'
    TableName = 'Usuario.DB'
    Left = 311
    Top = 102
  end
  object tbladvcontra: TTable
    DatabaseName = 'soljur'
    TableName = 'AdvContr.db'
    Left = 8
    Top = 31
  end
  object tblnatureza: TTable
    DatabaseName = 'soljur'
    TableName = 'Natureza.DB'
    Left = 289
    Top = 56
  end
  object tblassunto: TTable
    DatabaseName = 'soljur'
    TableName = 'Assunto.DB'
    Left = 115
    Top = 32
  end
  object tblforum: TTable
    DatabaseName = 'soljur'
    TableName = 'Forum.DB'
    Left = 9
    Top = 62
  end
  object tblrito: TTable
    DatabaseName = 'soljur'
    TableName = 'Rito.DB'
    Left = 81
    Top = 104
  end
  object tblvara: TTable
    DatabaseName = 'soljur'
    TableName = 'Vara.DB'
    Left = 346
    Top = 101
  end
  object tblpessoa: TTable
    DatabaseName = 'soljur'
    TableName = 'Pessoa.DB'
    Left = 324
    Top = 57
  end
  object tblprocaux: TTable
    DatabaseName = 'soljur'
    TableName = 'ProcAux.DB'
    Left = 370
    Top = 57
  end
  object TblAgenda: TTable
    DatabaseName = 'soljur'
    TableName = 'Agenda.DB'
    Left = 44
    Top = 32
  end
  object TblProcedim: TTable
    DatabaseName = 'soljur'
    TableName = 'Procedim.DB'
    Left = 6
    Top = 104
  end
  object TblFisica: TTable
    DatabaseName = 'soljur'
    TableName = 'Fisica.DB'
    Left = 372
    Top = 31
  end
  object TblJuridica: TTable
    DatabaseName = 'soljur'
    TableName = 'Juridica.DB'
    Left = 190
    Top = 60
  end
  object TblArea: TTable
    DatabaseName = 'soljur'
    TableName = 'area.db'
    Left = 81
    Top = 32
  end
  object tblConfig: TTable
    AfterPost = tblConfigAfterPost
    AfterCancel = tblConfigAfterCancel
    DatabaseName = 'soljur'
    TableName = 'Config.DB'
    Left = 190
    Top = 32
  end
  object TblHonora: TTable
    DatabaseName = 'soljur'
    TableName = 'Honora.DB'
    Left = 44
    Top = 60
  end
  object TblLanc: TTable
    DatabaseName = 'soljur'
    TableName = 'Lancamen.DB'
    Left = 224
    Top = 59
  end
  object TblIndiceD: TTable
    DatabaseName = 'soljur'
    TableName = 'IndiceD.db'
    Left = 116
    Top = 60
  end
  object TblIndiceM: TTable
    DatabaseName = 'soljur'
    TableName = 'IndiceM.DB'
    Left = 154
    Top = 60
  end
  object TblIndice: TTable
    Filtered = True
    DatabaseName = 'SOLJUR'
    TableName = 'Indice.DB'
    Left = 80
    Top = 60
  end
  object TblLogTrans: TTable
    DatabaseName = 'SOLJUR'
    TableName = 'LogTrans.db'
    Left = 257
    Top = 58
  end
  object TblCorreio: TTable
    DatabaseName = 'SOLJUR'
    TableName = 'Correio.DB'
    Left = 256
    Top = 32
  end
  object TblAtalho: TTable
    DatabaseName = 'SOLJUR'
    TableName = 'Atalho.DB'
    Left = 152
    Top = 32
  end
  object TblEtiqueta: TTable
    DatabaseName = 'SOLJUR'
    TableName = 'Etiqueta.DB'
    Left = 292
    Top = 32
  end
  object TblFeriado: TTable
    DatabaseName = 'SOLJUR'
    TableName = 'Feriado.db'
    Left = 330
    Top = 30
  end
  object tblEstados: TTable
    DatabaseName = 'SolJur'
    TableName = 'Estados.db'
    Left = 282
    Top = 5
  end
  object AddFilesDg: TOpenDialog
    DefaultExt = '*.*'
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofNoTestFileCreate]
    Title = 'Selecione os Arquivos para gera��o de Backup'
    Left = 8
    Top = 232
  end
  object OpenZipDg: TOpenDialog
    DefaultExt = 'ZIP'
    Filter = 'Zip file (*.ZIP)|*.ZIP|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Informe a Unidade e o Arquivo Origem'
    Left = 8
    Top = 200
  end
  object NewZipDg: TSaveDialog
    DefaultExt = 'ZIP'
    Filter = 'Arquivo Zip (*.ZIP)|*.ZIP|All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt]
    Title = 'Informe a Unidade e arquivo destino'
    Left = 8
    Top = 168
  end
  object TblApenso: TTable
    DatabaseName = 'Soljur'
    TableName = 'Apenso.db'
    Left = 64
    Top = 8
  end
  object TblStatus: TTable
    DatabaseName = 'Soljur'
    TableName = 'Status.db'
    Left = 376
    Top = 102
  end
  object MainZip: TXceedZip
    Compression = 6
    MultidiskMode = True
    StoredExtensions = '.ZIP;.LZH;.ARC;.ARJ;.ZOO'
    UsePaths = False
    OnAdding = MainZipAdding
    OnExtracting = MainZipExtracting
    OnListing = MainZipListing
    OnSkippingFile = MainZipSkippingFile
    OnStatus = MainZipStatus
    OnNewdisk = MainZipNewdisk
    Left = 48
    Top = 152
  end
  object tblParaChecarRedeOK: TTable
    DatabaseName = 'Soljur'
    TableName = 'Config2.DB'
    Left = 67
    Top = 181
  end
  object tblUsuAge: TTable
    DatabaseName = 'Soljur'
    TableName = 'USUAGE.db'
    Left = 292
    Top = 140
  end
  object tblDataAge: TTable
    DatabaseName = 'Soljur'
    TableName = 'DataAge.db'
    Left = 320
    Top = 140
  end
  object tblProcAnd: TTable
    DatabaseName = 'Soljur'
    TableName = 'PROCAND.db'
    Left = 352
    Top = 140
  end
end